Vsechny soubory v adresari, *.t xt, *.*
Otázka od: Benda Lukas
12. 11. 2003 12:28
Dobry den,
chtel bych zjistit kompletni seznam souboru v adresari. Jeste lepsi by bylo,
kdybych mohl zjistit soubory, ktere odpovidaji nejakemu filtru. Jak na to?
Potrebji to, protoze BDE pri nekorektnim vypnuti programu, nesmaze docasne
tabulky _QSQ92.DB (atp.) Pokud se techto souboru nashromazdi hodne, program se
jiz neda znovu spustit. Chci je mazat.
Lukas "benzin" Benda
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Jiri Virt
12. 11. 2003 12:30
ja to resim takto .... do startu programu dam tento radek:
DeleteFiles(AdresarPrivatni+'_QS*.*');
a tady je zdroj.
function DeleteFiles(const NazevSouboru:string):integer;
var
SearchRec:TSearchRec;
CurrDir:string;
begin
CurrDir:=CurrentDir;
{$I-}
ChDir(ExtractFilePath(NazevSouboru));
result := 0;
if FindFirst(NazevSouboru,$3F,SearchRec) = 0 then
if DeleteFile(Pchar(ExpandFilename(SearchRec.Name))) then INC(result);
while FindNext(SearchRec) = 0 do
if DeleteFile(Pchar(ExpandFilename(SearchRec.Name))) then INC(result);
SysUtils.FindClose(SearchRec);
{$I-}
ChDir(CurrDir);
end;{function DeleteFiles(NazevSouboruZdroj,PathCil:string):integer;}
Spachal
Jirka Virt
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Petr Vones
12. 11. 2003 16:08
From: "Benda Lukas" <bendal@volny.cz>
> chtel bych zjistit kompletni seznam souboru v adresari. Jeste lepsi by bylo,
> kdybych mohl zjistit soubory, ktere odpovidaji nejakemu filtru. Jak na to?
Podivej se na funkci AdvBuildFileList v unitu JclFileUtils:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
Petr Vones
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Jiri Hoffmayer
12. 11. 2003 16:23
Pomoci FindFirst, FindNext a FindClose by to melo jit take, viz dokumentace
Delphi.
Jiri H.
>> chtel bych zjistit kompletni seznam souboru v adresari. Jeste lepsi by
bylo,
>> kdybych mohl zjistit soubory, ktere odpovidaji nejakemu filtru. Jak na
to?
>
>Podivej se na funkci AdvBuildFileList v unitu JclFileUtils:
>http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=1181
95
>
>Petr Vones
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)